COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defclass point ()
C00004 00003	rpg@lucid.com/su
C00005 00004	ida%aoyama.cc.aoyama.junet@relay.cs.net/su
C00006 00005	me/su
C00007 ENDMK
C⊗;
(defclass point ()
    ((x :initform 0)
     (y :initform 0))
  (:init-args 
     (:eks :slotname x)
     (:why :slotname y)
     :rho
     :theta)

(defclass point ()
    ((x :initform 0)
     (y :initform 0)))

(defmethod initialize-instance 
 ((instance point) &key ((:eks x) nil x-supplied)
		        ((:why y) nil y-supplied)
			rho theta)
 (call-next-method)
 (when x-supplied (setf (x instance) x))
 (when y-supplied (setf (y instance) y)))

(defclass picture (point)
    (bitmap
     saved-bitmap)
  (:init-args
    (:y :default-value-form *screen-top*)
    (:image :slotname (bitmap saved-bitmap)))) 

(defmethod initialize-instance 
 ((instance picture) &key (y *screen-top*)
			  (image nil image-supplied))
 (call-next-method)
 (setf (y instance) y)
 (when image-supplied (setf (bitmap instance) image)
       		      (setf (saved-bitmap instance) image)))

(defun make-picture (&key (x (initform (class-named 'point) 'x))
			  (y (initform (class-named 'point) 'y))
			  (rho 0 rho-supplied)
			  (theta 0 theta-supplied)
 (let ((instance (allocate-instance (class-named 'picture))))
  (initialize-instance instance 
rpg@lucid.com/su
chapman%aitg.DEC@decwrl.dec.com
chapman%aitg.DEC@decwrl.dec.com
chapman%aitg.DEC@decwrl.dec.com
chapman%aitg.DEC@decwrl.dec.com
chapman%aitg.DEC@decwrl.dec.com
chapman%aitg.DEC@decwrl.dec.com
ida%aoyama.cc.aoyama.junet@relay.cs.net/su
X3J13 Mail

Professor Ida, the mail from March 7 through April 2 is in the
file:

x3.ida[com,lsp] at SAIL.

You can log into the area com,lsp using the password pslmoc.
That is, when FTP asks you for a user name, use this:

	com,lsp

Then the file you want is called this:

	x3.ida

			-rpg-
me/su
address

Here is an old address; what should the new one be:

ida%aoyama.cc.aoyama.junet@utokyo-relay.csnet